home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
The CICA Windows Explosion!
/
The CICA Windows Explosion! - Disc 2.iso
/
programr
/
cenviw1.zip
/
BORDER.CMM
< prev
next >
Wrap
Text File
|
1993-07-12
|
605b
|
28 lines
if defined(_WINDOWS_)
ScreenSize(30,30);
DrawAsteriskBorder();
ScreenCursor(1,1);
getch();
DrawAsteriskBorder()
{
size = ScreenSize();
ScreenClear();
// draw top border
ScreenCursor(0,0);
for ( col = 0; col < size.col; col++ )
putchar('*');
// draw bottom border
ScreenCursor(0,size.row-2);
for ( col = 0; col < size.col; col++ )
putchar('*');
// draw left and right borders
for ( row = 0; row < size.row - 1; row++ ) {
ScreenCursor(0,row);
putchar('*');
ScreenCursor(size.col-1,row);
putchar('*');
}
}